object Dlg_SMS: TDlg_SMS Left = 279 Top = 215 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'SMS' ClientHeight = 239 ClientWidth = 359 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] KeyPreview = True OldCreateOrder = False Position = poOwnerFormCenter Visible = True OnClose = FormClose OnCreate = FormCreate OnDestroy = FormDestroy OnKeyPress = FormKeyPress OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Animating: TGIFAnimator Left = 8 Top = 16 Width = 32 Height = 32 end object Panel_Timing: TPanel Left = 0 Top = 216 Width = 358 Height = 26 BevelOuter = bvLowered TabOrder = 4 Visible = False object Label3: TLabel Left = 16 Top = 8 Width = 26 Height = 13 Caption = 'Ti&me:' FocusControl = dtpDate end object Label1: TLabel Left = 264 Top = 8 Width = 3 Height = 13 Caption = ':' end object dtpDate: TDateTimePicker Left = 80 Top = 2 Width = 105 Height = 21 CalAlignment = dtaLeft Date = 37081.647178588000000000 Time = 37081.647178588000000000 DateFormat = dfLong DateMode = dmComboBox Kind = dtkDate ParseInput = False TabOrder = 0 end object cmbHour: TComboBox Left = 216 Top = 2 Width = 40 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 1 Items.Strings = ( '01' '02' '03' '04' '05' '06' '07' '08' '09' '10' '11' '12' '13' '14' '15' '16' '17' '18' '19' '20' '21' '22' '23' '24') end object cmbMin: TComboBox Left = 280 Top = 2 Width = 40 Height = 21 Style = csDropDownList ItemHeight = 13 TabOrder = 2 Items.Strings = ( '00' '05' '10' '15' '20' '25' '30' '35' '40' '45' '50' '55') end end object StatusBar: TStatusBar Left = 0 Top = 216 Width = 359 Height = 23 Panels = < item Width = 250 end item Width = 50 end> ParentFont = True SimplePanel = False UseSystemFont = False end object GroupBox1: TGroupBox Left = 48 Top = 8 Width = 305 Height = 48 Caption = '&Recipient' TabOrder = 0 object btnAddress: TSpeedButton Left = 276 Top = 16 Width = 23 Height = 22 Hint = 'Get recipient' Anchors = [akTop, akRight] Glyph.Data = { 42020000424D4202000000000000420000002800000010000000100000000100 1000030000000002000000000000000000000000000000000000007C0000E003 00001F0000001F7C1F7C1F7C1F7C6B3DA4484A49CE411F7C1F7C1F7C1F7C1F7C 1F7C1F7C1F7C1F7C744E103EB556E548C6506C418C456B4D3146104210421042 103E744E1F7CD75ACB102F15314EA448A6283342124229554A350D192E194F19 7119EC14D75AD8564F214E218C4D833409259552CF3D093D8B390C1D0C192D1D 2D1D2F19B852D85A5E63B55A0751431C2A29D7568E392A393146B752B652954E 5346353E3B630F369D67525EA538091D524A744A2B35AE41B5569D6F9E6F3B67 B65656423B6341027857EF5D292DD7527C6B7B6BF149114A7D6F7D6F7C6B195F D85A9746F85A0E3A9B678C4D744A9B6F5A675B67F85A734E7C6B9D6F7C6B3B67 F85A984A3242C46652568D41F656914AF556185F396395565B679D6F5B675C67 D85A77463B2E2E4ACE51CE4159670D3A704A7046D6569D6F5B679D6F3A63F85A B756774AF241D65AEF4D5246DC73D456914EB24E185FBE735B677C6F7C6BF85A F856135265649456CE4195527C6F9C6F375FF556D65ADE779D73BE73BE733A67 195F774E326E3156C620185F7C6F5B6BBD733963734EFA5AFF7FFF7FFF7FDE77 1A5F1A5F1F7C1F7C092911427B6B5B6BDE77D6567C6F7C6FFA5AFA56FA56DA52 1A5F1F7C1F7C1F7C1F7CCE3DCE39F75A7C6B94521F7C1F7C1F7C1F7C1F7C1F7C 1F7C1F7C1F7C1F7C1F7C1F7C1F7C9556D65A1F7C1F7C1F7C1F7C1F7C1F7C1F7C 1F7C1F7C1F7C} ParentShowHint = False ShowHint = True OnClick = btnAddressClick end object edRecipient: TZEdit Left = 8 Top = 16 Width = 265 Height = 21 TabOrder = 0 end end object mmBody: TMemo Left = 1 Top = 64 Width = 358 Height = 121 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False PopupMenu = PopupMenu1 TabOrder = 1 OnChange = mmBodyChange OnKeyPress = mmBodyKeyPress end object Panel_Buttons: TPanel Left = 0 Top = 186 Width = 358 Height = 28 BevelOuter = bvNone TabOrder = 2 object btnSend: TButton Left = 280 Top = 2 Width = 72 Height = 25 Anchors = [akTop, akRight] Caption = '&Send' TabOrder = 2 OnClick = btnSendClick end object btnCancel: TButton Left = 189 Top = 2 Width = 75 Height = 25 Anchors = [akTop, akRight] Cancel = True Caption = '&Cancel' TabOrder = 1 OnClick = btnCancelClick end object cbTimingSend: TCheckBox Left = 8 Top = 8 Width = 113 Height = 17 Caption = '&Timing Send' TabOrder = 0 OnClick = cbTimingSendClick end end object PopupMenu1: TPopupMenu OnPopup = PopupMenu1Popup Left = 288 Top = 112 object miCut: TMenuItem Caption = 'Cut' ShortCut = 16472 OnClick = miCutClick end object miCopy: TMenuItem Tag = 1 Caption = 'Copy' ShortCut = 16451 OnClick = miCutClick end object miPaste: TMenuItem Tag = 2 Caption = 'Paste' ShortCut = 16470 OnClick = miCutClick end object N1: TMenuItem Caption = '-' end object miFont: TMenuItem Caption = 'Font...' OnClick = miFontClick end object miBkGround: TMenuItem Caption = 'Background Color...' OnClick = miBkGroundClick end object miSound: TMenuItem Caption = 'Sound' OnClick = miSoundClick end end object Language: TLanguage LangCenter = DM_Language.LangCenter ResStrings.Strings = ( '0001=Recipient can not be blank!' '0002=Message can not be blank!' '0003=In sending...Are you sure to cancel it?' '0004=SMS' '0005=Chars:' '0006=Message has been sent successfully.' '0007=Invalid mobile phone number: ' '0008=Can not send short message to more than 10 recipients.' '0009=Canceled' '0010=Network Error' '0011=TimeOut' '0012=Error:') Left = 248 Top = 112 end end